Clickx 4/Clickx 4.iso/menu.dxr/00008_knop_groep.ls

Text File | 2002-01-01 | 510 b | 30 lines

property pGroepID
global gGroep, gGroepNaam

on mouseEnter me
  if pGroepID <> 0 then
    sprite(me.spriteNum).member = "menu_knop_R"
  end if
end

on mouseLeave me
  if pGroepID <> 0 then
    sprite(me.spriteNum).member = "menu_knop_N"
  end if
end

on mouseDown me
  if pGroepID <> 0 then
    sprite(me.spriteNum).member = "menu_knop_D"
    gGroep = pGroepID
  end if
end

on mouseUp me
  if pGroepID <> 0 then
    sprite(me.spriteNum).member = "menu_knop_N"
    deleteLogos()
    go("submenu")
  end if
end